; Fix a typo in proced.el

* lisp/proced.el (proced-filter): Fix a typo.  Reported by Armin
Darvish <armindarvish@gmail.com>.  (Bug#77713)

(cherry picked from commit 3a13fb2069fc861e20fca893aa64dd70dcef0de3)

diff --git a/lisp/proced.el b/lisp/proced.el
index a60f70c949e6534b80cd9f4bf635fce81a403408..429bc06e745e4f43ee40399490dff1d095c344ce 100644 (file)
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1185,7 +1185,7 @@ Return the filtered process list."
             ( ;; apply predicate to each list of attributes
              (eq (car filter) 'function)
              (dolist (process process-alist)
-               (if (funcall (car filter) (cdr process))
+               (if (funcall (cdr filter) (cdr process))
                    (push process new-alist))))
             (t ;; apply predicate to specified attribute
              (let* ((cdrfilter (cdr filter))